100 DIMC(4),G(4):POKE53281,15
101 SO = 54272:FOR T=SO TO SO+24:POKET,0:NEXT:X=0
102 POKESO+24,15:POKESO+5,17:POKESO+6,241
300 PRINT"[147][144]MIND BOGGLE":FORT=1TO 1000:NEXT
340 PRINT"[147]"
350 PRINT "[144]   1 [146]   2 [146]   3 [146]   4 [146] [156]  5 [146]   6 [146][144]"
365 PRINTSPC(6)"[144]I AM CHOOSING 4 COLORS NOW[144]":FORL=1TO100
366 POKES2,INT(RND(1)*128)+128:FOR M=1 TO 10:NEXTM:NEXTL:POKES2,0:GOSUB4050
400 A$="123456":R=INT(RND(1)*6)+1:A1$=MID$(A$,R,1):A1=VAL(A1$)
401 R=INT(RND(1)*6)+1:A2$=MID$(A$,R,1):IFA1$=A2$THEN401
402 A2=VAL(A2$)
403 R=INT(RND(1)*6)+1:A3$=MID$(A$,R,1):IFA1$=A3$ORA2$=A3$THEN403
404 A3=VAL(A3$)
405 R=INT(RND(1)*6)+1:A4$=MID$(A$,R,1):IFA1$=A4$ORA2$=A4$ORA3$=A4$THEN405
406 A4=VAL(A4$)
500 FOR T= 1TO 1000:NEXT
510 POKESO,100:POKESO+1,100:POKESO+4,17:FORL=1TO100:NEXTL:POKESO+4,16
540 POKE214,21:POKE211,5:PRINT:PRINT"                                  "
550 X$="":POKE214,21:POKE211,0:PRINT:INPUT "SELECT COLORS";X$
600 IFLEN(X$)<>4THENGOSUB4050:GOTO3300
700 FORE=1TO4:V=VAL(MID$(X$,E,1))
705 IFV<1ORV>6THENGOSUB4050:GOTO3300
710 NEXTE
900 X=X+1:B=0:W=0:AA$=A1$+A2$+A3$+A4$
901 FORJ=1TO4
902 G(J)=VAL(MID$(X$,J,1))
903 C(J)=VAL(MID$(AA$,J,1))
904 IFG(J)=C(J)THENB=B+1:G(J)=0:C(J)=0
905 NEXTJ
906 FORJ=1TO4:IFC(J)=0THEN912
907 H=0:FORK=1TO4
908 IFC(J)=0THEN911
909 IFC(J)<>G(K)THEN911
910 H=1:G(K)=0:C(J)=0
911 NEXTK:W=W+H
912 NEXTJ
1000 ONXGOTO1100,1105,1110,1115,1120,1125,1130,1135,1140,1145
1100 PRINT" 1 ";:GOTO1200
1105 PRINT" 2 ";:GOTO1200
1110 PRINT" 3 ";:GOTO1200
1115 PRINT" 4 ";:GOTO1200
1120 PRINT" 5 ";:GOTO1200
1125 PRINT" 6 ";:GOTO1200
1130 PRINT" 7 ";:GOTO1200
1135 PRINT" 8 ";:GOTO1200
1140 PRINT" 9 ";:GOTO1200
1145 PRINT"10 ";
1200 X1=VAL(LEFT$(X$,1)):X2=VAL(MID$(X$,2,1)):X3=VAL(MID$(X$,3,1))
1210 X4=VAL(RIGHT$(X$,1))
1220 P=0:T=0
1300 P=P+1:ONX1GOTO1700,1701,1702,1703,1704,1705
1400 P=P+1:ONX2GOTO1700,1701,1702,1703,1704,1705
1500 P=P+1:ONX3GOTO1700,1701,1702,1703,1704,1705
1600 P=P+1:ONX4GOTO1700,1701,1702,1703,1704,1705
1700 PRINT"[144]   [146] ";:POKESO+1,100:GOTO1750
1701 PRINT"   [146] ";:POKESO+1,124:GOTO1750
1702 PRINT"   [146] ";:POKESO+1,140:GOTO1750
1703 PRINT"   [146] ";:POKESO+1,166:GOTO1750
1704 PRINT"[156]   [146] ";:POKESO+1,150:GOTO1750
1705 PRINT"   [146] ";:POKESO+1,185:GOTO1750
1750 POKESO+4,17:FORL=1TO99:NEXTL:POKESO+4,16:FORL=1TO250:NEXTL
1751 ONPGOTO1400,1500,1600
1761 ONTGOTO2072,2073,2074,2075
1800 PRINT" ";:IFB=0THEN2000
1810 GOSUB3100
1820 ONBGOTO1900,1901,1902,1903
1900 PRINT"[144][209]";:GOTO2000
1901 PRINT"[144][209][209]";:GOTO2000
1902 PRINT"[144][209][209][209]";:GOTO2000
1903 PRINT"[144][209][209][209][209]";:GOTO4000
2000 IFW=0THEN2060
2010 GOSUB3200
2020 ONWGOTO2050,2051,2052,2053
2050 PRINT"[144][209][146]":GOTO2060
2051 PRINT"[144][209][209][146]":GOTO2060
2052 PRINT"[144][209][209][209][146]":GOTO2060
2053 PRINT"[144][209][209][209][209][146]"
2060 PRINT"[144]":PRINT"                     "
2062 PRINT""
2065 IFX<>10THEN500
2066 POKESO+4,32:FORL=1TO15:FORM=200TO220+L*2:POKESO+1,M:NEXTM:NEXTL
2068 POKESO+4,32
2070 PRINT"":PRINT"          ";
2071 T=T+1:ONA1GOTO1700,1701,1702,1703,1704,1705
2072 T=T+1:ONA2GOTO1700,1701,1702,1703,1704,1705
2073 T=T+1:ONA3GOTO1700,1701,1702,1703,1704,1705
2074 T=T+1:ONA4GOTO1700,1701,1702,1703,1704,1705
2075 PRINT"    ":PRINT"[144]     CORRECT COLORS  PRESS RETURN"
2080 IFPEEK(197)<>1THEN2080
2085 GETT$:PRINT"[147]TOO BAD YOU MISSED!"
2086 PRINT"10 TRIES IS ENOUGH."
2090 POKESO+4,33
2096 FORL=1TO6:POKESO+1,80:FORM=1TO400:NEXTM:POKESO+4,32:FORM=1TO400:NEXTM
2098 NEXTL:POKESO+4,32
3000 GETT$:PRINT"[147][144] WANT TO PLAY AGAIN?"
3005 PRINT "YES OR NO?"
3010 IFPEEK(197)=25THENGETT$:POKE198,0:GOTO101
3012 IFPEEK(197)=39THEN3014
3013 GOTO3010
3014 GETT$:PRINT"[147][144]CHICKEN!!"  :PRINT:PRINT:END
3100 POKESO+4,17:FORL=100TO154:POKESO+1,L:NEXTL:POKESO+4,16:RETURN
3200 POKESO+4,17:FORL=100TO48STEP-1:POKESO+1,L:NEXTL:POKESO+4,16:RETURN
3300 PRINT"[145]ILLEGAL INPUT![145]":FORL=1TO500:NEXTL
3301 FORL=1TO999:NEXTL:GOSUB4050:GOTO500
4000 PRINT:PRINT:PRINT"[144]YOU W I N !! PRESS RETURN"
4005 POKESO+4,33:FORM=180TO100STEP-5:POKES2,M:NEXTM:FORM=100TO200STEP 5
4006 POKESO+1,M:NEXT M:POKE SO+4,32
4010 IFPEEK(197)<>1THEN4005
4011 PRINT"[147]";
4015 IFX=1THENPRINT"     LUCKY GUESS!":GOTO4020
4016 IFX=2ORX=3THENPRINT"      EXPERT!!!":GOTO4020
4017 IFX=4ORX=5ORX=6THENPRINT"    PRETTY GOOD!":GOTO4020
4018 IFX=7ORX=8THENPRINT"[156]         SO SO!":GOTO4020
4019 PRINT"  YOU BARELY GOT IT!"
4020 POKESO+4,33:FORL=1TO20:FORM=148TO200STEP5:POKES2,M:NEXTM
4021 FOR M=200TO 148STEP-5:POKESO+1,M:NEXTM:NEXTL:POKESO+4,32
4030 GOTO3000
4050 PRINT"                                ":RETURN